home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tegl6b.zip / INTROPAK.EXE / lha / TWWDEMO.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-06  |  849b  |  52 lines
  1. {$M 4384,64000,256000}
  2. {$I switches.inc}
  3.  
  4. USES
  5.  
  6.   teglfont,
  7.   FastGrph,
  8.   {$IFDEF NoGr}
  9.   TGraph,
  10.   {$ELSE}
  11.   drvevga,
  12.   Graph,
  13.   {$ENDIF}
  14.   virtmem,
  15.   teglunit,
  16.   teglmain,
  17.   twcommon,
  18.   twkernel,
  19.   twwindow,
  20.   moreicon;
  21.  
  22. {$F+}
  23. Function StdIORedraw(ifs : ImageStkPtr; ms : MsClickPtr) : Word;
  24.   VAR wf : WinFramePtr;
  25.   BEGIN
  26.     wf := FindWinFrame(ifs);
  27.     twGotoXy(wf,1,1);
  28.     Writeln('Hello world!');
  29.     Writeln('a real ',345.678:8:4);
  30.     StdIORedraw := 0;
  31.   END;
  32.  
  33. VAR wf : WinFramePtr;
  34.  
  35. BEGIN
  36.   twEasyStart;
  37.   setautorotate(true);
  38.   EmergencyExit;
  39.   SetTeglFont(@Font14);
  40.   {---------}
  41.   twCrtOn;
  42.   twInit(wf,100,100,400,300);
  43.   twSetHeader(wf,'Standard IO Window');
  44.   twSetRedraw(wf,StdIORedraw);
  45.  
  46.   twCrtAssign(wf);
  47.   twDrawWindowFrame(wf);
  48.  
  49.   SetAutoRotate(TRUE);
  50.   TeglSuperVisor;
  51. END.
  52.